﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Imports MySql.Data.MySqlClient
Imports Utilerias

Public Class ComplementosFact
    Public Shared Function Build(ByVal dr As MySqlDataReader) As ComplementosBE
        Dim tmpComplementos As ComplementosBE = New ComplementosBE()
        Try
            With tmpComplementos
                '.Id = convertDTFromDb.convertInt32(dr.Item("Id"))
                .CveComp = convertDTFromDb.ConvertString(dr.Item("CveComp"))
                .Activo = Conversiones.convertSNToBool(convertDTFromDb.ConvertString(dr.Item("Status")))
                .RegimenFiscal = convertDTFromDb.ConvertString(dr.Item("RegimenFiscal"))
            End With
            Return tmpComplementos
        Catch ex As Exception
            Throw
        Finally
            tmpComplementos = Nothing
        End Try
    End Function
End Class
